dim args :args =inputbox("seacrch net name =?",args,"")'"AP_26M_IN"
searchValue = ucase(trim(args))
if searchValue<>"" then
	dim doc
	set doc = Application.ActiveDocument
	doc.SelectObjects ppcbObjectTypeAll, "*", False 
	doc.SelectObjects(2,searchValue,True) 

	
	' dim nets
	' set nets = doc.Nets(searchValue)
	' if nets is nothing then
		' msgbox "nothing found!"
	' else	
		' nets.selected = true
		' Application.ExecuteCommand("Zoom To Selection")
	' end if
end if
